Delphi Informant Complete 1995 - 2000/Delphi Informant Complete 1995 to 2000.iso/Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar/1995/DEC/DI9512DH/mdiedit.dfm/mdiedit.txt

Text File | 1995-11-03 | 5KB | 221 lines

object EditForm: TEditForm
  Left = 191
  Top = 349
  Width = 399
  Height = 210
  ActiveControl = Memo1
  Caption = 'Untitled'
  Ctl3D = False
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poDefault
  Visible = True
  OnActivate = MRUDisplay
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  TextHeight = 16
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 391
    Height = 164
    Cursor = crIBeam
    Align = alClient
    BorderStyle = bsNone
    Ctl3D = False
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    PopupMenu = MemoPopUp
    ScrollBars = ssBoth
    TabOrder = 0
    WordWrap = False
  end
  object MainMenu1: TMainMenu
    AutoMerge = True
    Left = 335
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        OnClick = New1Click
        ShortCutText = 'Ctrl+N'
      end
      object Open1: TMenuItem
        Caption = '&Open'
        OnClick = Open1Click
        ShortCutText = 'Ctrl+O'
      end
      object Close1: TMenuItem
        Caption = '&Close'
        OnClick = Close1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Save1: TMenuItem
        Caption = '&Save'
        OnClick = Save1Click
        ShortCutText = 'Ctrl+S'
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As...'
        OnClick = SaveAs1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&Print'
        OnClick = Print1Click
        ShortCutText = 'Ctrl+P'
      end
      object PrintSetup1: TMenuItem
        Caption = 'Prin&t Setup...'
        OnClick = PrintSetup1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MRU1: TMenuItem
        OnClick = MRUClick
      end
      object MRU2: TMenuItem
        Tag = 1
        OnClick = MRUClick
      end
      object MRU3: TMenuItem
        Tag = 2
        OnClick = MRUClick
      end
      object MRU4: TMenuItem
        Tag = 3
        OnClick = MRUClick
      end
      object MRUSeparator: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      GroupIndex = 1
      OnClick = SetEditItems
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        OnClick = CutToClipboard
        ShortCutText = 'Ctrl+X'
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        OnClick = CopyToClipboard
        ShortCutText = 'Ctrl+C'
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        OnClick = PasteFromClipboard
        ShortCutText = 'Ctrl+V'
      end
      object Delete1: TMenuItem
        Caption = 'De&lete'
        OnClick = Delete
        ShortCutText = 'Del'
      end
      object TMenuItem
        Caption = '-'
      end
      object SelectAll1: TMenuItem
        Caption = 'Select &All'
        OnClick = selectAll
      end
    end
    object Character1: TMenuItem
      Caption = '&Character'
      GroupIndex = 1
      object Left1: TMenuItem
        Caption = '&Left'
        Checked = True
        GroupIndex = 2
        OnClick = AlignClick
      end
      object Right1: TMenuItem
        Caption = '&Right'
        GroupIndex = 2
        OnClick = AlignClick
      end
      object Center1: TMenuItem
        Caption = '&Center'
        GroupIndex = 2
        OnClick = AlignClick
      end
      object TMenuItem
        Caption = '-'
        GroupIndex = 2
      end
      object WordWrap1: TMenuItem
        Caption = '&WordWrap'
        GroupIndex = 3
        OnClick = SetWordWrap
      end
      object TMenuItem
        Caption = '-'
        GroupIndex = 3
      end
      object Font1: TMenuItem
        Caption = '&Font...'
        GroupIndex = 4
        OnClick = SetFont
      end
    end
  end
  object MemoPopUp: TPopupMenu
    OnPopup = SetPopUpItems
    Left = 308
    Top = 65534
    object Cut2: TMenuItem
      Caption = 'Cut'
      OnClick = CutToClipboard
    end
    object Copy2: TMenuItem
      Caption = 'Copy'
      OnClick = CopyToClipboard
    end
    object Paste2: TMenuItem
      Caption = 'Paste'
      OnClick = PasteFromClipboard
    end
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 363
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 256
  end
  object PrintDialog1: TPrintDialog
    Left = 280
  end
  object SaveFileDialog: TSaveDialog
    Filter = 'Text Files (*.txt) | *.txt | All Files (*.*) | *.*'
    Options = [ofHideReadOnly, ofNoReadOnlyReturn]
    Left = 232
  end
end